﻿Namespace B1Data
    Public Class B1ValidValue
        Private _Value As String
        Private _Descripiton As String

        Public Property Value As String
            Set(ByVal value As String)
                _Value = value
            End Set
            Get
                Return _Value
            End Get
        End Property

        Public Property Description As String
            Set(ByVal value As String)
                _Descripiton = value
            End Set
            Get
                Return _Descripiton
            End Get
        End Property

    End Class
End Namespace

